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aka AAA 
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AA AKA 
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AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR IIIIII BBBBBBBB IIIIII1 NN NN ; 
PPPPPPPP ABAAAL SSSSSSSS_ WW WW RRRRRRRR III] BBBBBBBB I1111 NN NN | : 
PP PP AA AA SS ww WW RR RR Il BB BB Il NN NN ; 
PP PP AA AA SS Wid WW RR RR II BB BB II NN NN : 
PP PP AA AA SS Ww WW RR RR I] BB BB Il NNNN NN ; 
PP PP AA AA SS wu WW RR RR I] BB BB Il NN NN ; 
PPPPPPPP AA AA SSSSSS ww WW RRRRRRRR II BBBBBBBB I] NN NN NN | ; 
PPPPPPPP AA AA SSSSSS is WW RRRRRRRR I] BBBBBBBB I] NN NN NN : 
AADAAAAAAL SS WW WW WW RR RR II BB BB II NN NNN ; 

PP AAAAAAAAAA SS WW WW WW RR RR II BB BB II NN NNNN : 
PP AA AA SS WWWW WWWW RR RR II BB BB I] NN NN P : 
PP AA AR SS WWWW WWWW RR RR II BB BB II NN NN aes | : 
PP AA AA SSSSSSSS ww Ww RR RR IIIIII BBBBBBBB III111 NN NN eee : 
PP AA AA SSSSSSSS Wil Ww RR RR IIII11 BBBBBBBB III111 NN NN oes : 
; 

LL III111 SSSSSSSS : 
LL HII] SSSSSSSS ; 
LL I] ss : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SSSSSS : 
LL II SSSSSS | ; 
LL il SS | : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LLLLLLLLLL 11111 SSSSSSSS : 
LLLLLLLLLL H1111 SSSSSSSS : 
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14-Sep-1984 


N ( at ‘Write value in base 2' 
T = '1-002' ! File: PASWRIBIN.B32 Edit: SBL1002 


PASRTL.SRCJPASWRIBIN.B52;1 (1) 
MODULE PASSWRITE . 


BEGIN 


MARSSSSSLESESIS SESE ESTE ESTE TT CT CTT eee TT e cece cece iii ccc ccc iris iti cist iii 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE tee MAY BE USED AND COP 


E IED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND hd THE 


& 
® 
® 
8 
* 
4 
' e 
!'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
.* TRANSFERRED. * 
Hil * 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
* 
« 
# 
® 
te 
& 


i DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS 


I 
H NOT SUPPLIED BY DIGITAL. 


LEER EERE ARERR REE AEE EERE EEE ERR ERERREERERERE EE 
! 


'e¢ 


FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains procedures which write a value in 
base 2 to a textfile or string. 


ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
! MODIFIED BY: 

! 1-001 = Original. SBL 1-April-1981 

! 1-002 = Make total-width a longword. SBL 29-June-1982 


-v 
‘> 
ow 
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PASSWRITE_BIN Write value in base 2 18. $ep-1984 02:14:25 AX-11 Blis Page 2 

1-002 Declarations 14- =30 0-1 3B 41 £15363 PASRTL. ata Ty ASURI N B82; 1 (2) 

: 49 pts 1 ZSBTTL ‘Declarations’ : 
; 0 049 1! 3 
5 1 bey 1 ! PROLOGUE DEFINITIONS: ; 
8. ay! 7 
: 54 0086 } REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures : 
; 0118 1! 5 
2 ae 0119 1 =! TABLE OF CONTENTS: : 
3 58 0120 1! $ 
; 59 0121 1 3 
3 60 3 ¢ 1 sey BOVIS $ 
; 61 1 1 PASSWRITE_ BIN: NOVALUE ' Write to textfile : 
; 6¢ 0124 1 PASSURITEV BIN: NOVALUE; i Write to string : 
; 6 BIS? 1 3 
: 664 0126 1! 3 
: 65 0127 1 ! MACROS: : 
; & 0128 1! 3 
i or O88 1! NONE F 
; 0150 1 ! : 
3 69 0131 1 =! EQUATED SYMBOLS: : 
3 70 O13 1! | ; 
; 71 01355 1! NONE 5 
3 72 0134 1! | i 
Sy 0135 1°! FIELDS: 3 
3 74 0136 1! 3 
; 75 0137 1! NONE $ 
3 76 0138 1! F 
oe 0139 1 =! OWN STORAGE: ; 
5 78 0140 1! 3 
: 79 0141 1! NONE ; 
3 80 Bie6 1! 3 
; #8) 0143 1 3 
3; 62 0144 1 !! If this is for a V2 system, redefine OTS$CVT_L_TB as PASSCVT_L_TB. 3 
; 683 L 0145 1 ZIF XVARIANT : 
s 84 U 0146 1 XTHEN : 
cs oe U 0147 1 UNDECLARE ; 
;  & U 0148 1 OTSSCV TB; : 
: «87 U 0149 1 EXTERNAL ROOYINE 3 
a; u 0150 1 PASSCVT_L_TB; 3 
; oF U 0151 1 BIND ROUTIN Ne’ | : 
; 90 u 0152 1 OTS$CVT_L_TB = PASSCVT_L_TB; : 
3 91 0153 1 &FI : 


in the result. Defaults to the minimum number of 
digits to represent every bit of the value. 


IMPLICIT INPUTS: 
NONE ° 
! IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
! SIGNALLED ERRORS: 
NEGWIDDIG = negative field width or digits specification is not allowed 
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1-002 PASSWRITE_BIN = Write a value in binary a ae 9 05:13:83 PASRTL.SRCIPASWRIBIN.B 2:1 . (3) 
; 9 130 1 ZSBTTL ‘PASSWRITE_BIN - Write a value in binary' 
; 94 155 1 GLOBAL ROUTINE PASSWRITE BIN ( ! Write a value in binary 
Bes, 128 1 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
; * 01 1 P ! Size of value in bits 
s 7 0158 #1 VALUE, ' Address of value 
; #8498 0159 1 TOTAL_WIDTH: SIGNED, ' Total field width 
A , 0160 1 OR ' Error unwind address 
; W 0161 1 MIN DIGITS: SIGNED ! Minimum number of digits 
; 10 O16¢ 1 ): NOVACUE = 
; 10 0163 1 
; 10 0164 1 !44 
; S B19? : FUNCTIONAL DESCRIPTION: 
; 10 0167 1 This procedure writes a base 2 representation of a value to the 
: 0 0168 1 specified textfile. 
; 0169 1 
: ° B159 : CALLING SEQUENCE: 
: 1 Bie 1 CALL PASSWRITE_BIN (PFV,mr.r, NBITS.rl.v, VALUE.rz.r, TOTAL_WIDTH.rl.v 
3 ; Ee ! C, CERROR.j.rJ C, MIN_DIGITS.rl.v J)) 
3 : p12 : FORMAL PARAMETERS: 
; TY 0177 1 PFV - The Pascal File Variable (PFV) passed by reference. 
3 ; bias : The structure of the PFV is defined in PASPFV.REQ. 
: i Bey : NBITS - The size of VALUE in bits. 
; 3 8 Hf ' VALUE - The address of the value to write. 
3 § 8 rf : TOTAL_WIDTH - Total field width. 
3 § S ry] : ERROR - Optional. Address to unwind to if an error occurs. 
; 2 0188 1 
, Ve 0189 1 
Be, 0190 1 
3 3 0191 +1 
; 3 0 38 1 
=: 3S 0 1 
we. 0194 1 
3; 0195 1 
3 ; 0196 : 
, 95 6 1 
. 95 0 1 
eb 0 1 
3 4 0 1 
s 14 0 1 
3 4 0 1 
; 4 0 1 
3 16 0 1 
3: «14 0 1 
s; 1% 0 1 
; «6146 0 1 
3; (14 0 1 
3 4 0 1 


tadadad Sat adatatatadabatatadadbabaiaadadad i atabutadabatabtaiaabebabiaichiabaiabebababababababaiad ab 
DONO WE WN 0 ODNAUES WN (0 OONOAUVE WN — O OONOU SW" OOONAUEWN—O”D 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
' 
} 
} 
. 
} MIN_DIGITS - Optional. The minimum number of digits to appear 
' 
i 
i 
i 
i 
' 
i 
' 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
' 
i 


PAS RMAITE BIN Write value in base 2 15-Sep-1984 95:15:63 AX-11 Oh rete Mate ae Page 4 
1-002 PASSWRITE_BIN = Write a value in binary 14-Sep-1984 12:52:01 PASRTL.SRCJPASWRIBIN.B52;1 (3). 
; 120 is LINTOOLON = Line too long 

. ine 

: 488 e 

; 154 0215 BEGIN 
‘Wes 8 16 
: 156 17 LOCAL 
5 937 0218 FCB: REF S$PASSFCB_CONTROL_BLOCK, ! File control block 
; ine 0219 ACTUAL_DIGITS, ! Number of digits actually used 
; 159 0 $9 ACTUAL_NBITS, ! Value size actually used 
; 13 0221 DESCR: BLOCK (8, BYTE], ' String descriptor 
: 161 0 $6 PFV_ADDR: VOLATILE, i Enable argument | 
: 16g UNWIND_ACT: VOLATILE, ! Enable argument | 
; 197 0995 ERROR_ADDR: VOLATILE; ! Enable argument 
3 | 
; «165 0226 $ LITERAL 

: 166 0227 2 M_SIZE_IN_BITS = %xX'04'; ! Flags argument for 
: 167 0228 ! convert routine 
; 168 t594 BUILTIN 
3; 169 0230 ACTUALCOUNT; 
: 170 0231 2 
: 171 BS36 2 ENABLE 
5 \r¢ OS37 § PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 174 0235 3 4 | 
: 175 0236 ' Get ERROR parameter, if present. 
: 176 0237 2 !- 

3 W7 0238 2 

: 178 0239 2 IF ACTUALCOUNT () GEQU 5 

: 179 0240 2 THEN , 

3 Hb ose) § ERROR_ADDR = .ERROR; ' Set unwind address 

; 182 $548 2 PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address 
: «183 0244 2 
3; (184 0245 2 + 
; «6185 0246 2 ! Validate PFV and get PFV. 
: 186 0247 § = 
: 187 0248 
; «4188 0249 2 PASSSVALIDATE_PFV (PFV CPFVS$R_PFVJ; FCB); 
> «189 0250 2 

: 190 0251 § '¢ ; : : 
3; «6191 OS3¢ ! Set unwind action to unlock file. 

: 192 0255 2 !- 

3: «193 B68 

> 19% 55 UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 

: 195 0256 

; 196 0257 '¢ Orr 

3; 197 0258 ! Do common initialization. 

; 198 0259 le 

: 199 0260 

; 54 ose) PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); FCB); 

; 203 0 $$ '¢ Po D 

s « 8 64 ' Set initial values for conversion. 

3; 204 65 !- 

: 205 0 06 

; 06 026 ACTUAL_NBITS = .NBITS; 
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call WRITE epilogue routine to move the Last character written to the 

- user's buffer and to unlock the file variable. 

PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 

RETURN; 

END; ! End of routine PASSWRITE_BIN 
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FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .DESCR CDSC$W_LENGTHI; 
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RN PASS$WRITE_BIN, PASSWRITEV_BIN 
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~EXTRN PASSSINI WRITE 

~EXTRN ASSSSIGNAL: PAS$K_NEGWIDDIG 
~EXTRN PASSK LINT 

-EXTRN OTSSCUT_L_TB, PASSSEND_WRITE 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
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01FC 00000 .ENTRY PASS$WRITE BIN, goave R2,R3,R4,R5,R6,R7.RB =; 0155 
58 000000006 00 9E 00002 MOVAB PASS$$SIGNAL, ; 
SE 10 C2 00009 SUBL2 #16, SP : 
7E 04 0000C CLRL ERROR_ADDR F 
04 AE 7C O000E CLRO UNWIND ACT : 
6D 009A CF DE 00011 MOVAL (FP) ; 
05 6C 91 00016 CMPB tab) @ : 0239 
04 1F 00019 BLSSU ; 
6E 14 AC DO 0001B MOVL ERROR ERROR_ADDR + 0241 
56 04 AC DO OOO1F 18 MOVL : 0243 
08 AE 56 DO 00023 MOVL ADDR ; 
000000006 00 16 00027 JSB RRSstuAC {DR PFV : 0249 
04 AE 01 D0 0002D MOVL #1, UNWIND ACT : 0255 
000000006 00 16 00 1 JSB PASSSINIT ORITE > 0261 
54 08 AC 00 00037 MOVL NBIT ACTUAL_NBITS > 0267 
53 34 D0 00 B MOVL ACTUAL NS NBITS., “ACTUAL_DIGITS > 0268 
OE AE 010E 8F B80 0003E MOVW : 0275 
10 AE EC AZ 00 00044 MOVL ~ZoUFce) CRE SCR+s : 0276 
06 6C 91 00049 CMPB CCAP), #6" : 0277 
06 1F 0004C BLSSU 2 ; 
53 18 «AC 00 OO4E MOVL eS ACTUAL_DIGITS > 0280 
06 1 009 BLSS 3$ : 0281 
52 10 Ac 06 0054 2$: MOVL § TOTAL_WIDTH, R2 : 0285 
A 18 00058 BGEG 46. «&$ ; 
E D4 O005A 38: CLRL = (SP) : 0287 
7 006 8F 9A 0005C¢ MOVZBL #PAS$K_NEGWIDDIG, -(SP) ; 
6 2 FB 0060 CALLS #2, PASSSSIGNAL ; 
04 0006 RET : 
OC AE 52 BO 00064 4$: MOVW 2, DESCR > 0288 


; Routine Size: 210 bytes, Routine Base: _PASS$CODE + 0000 
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1-002 PASSWRITE_BIN - Grits © velue én binary 1a-Sep- 19 96: 43: 1 PASRTL.SRC PASUMiBGN BS251 . (3) 1-€ 
54 52 01 00 68 CMPL = R2, ACTUAL_NBITS : 0293. 
if B BGEQU : 
54 D $0 MOVL 2, ACTUAL_NBITS > 0299 
2 D! a0f8 5$ cMPL ACTUAL DIGITS, R2 ; 0 dl 
53 53 D0 007 MOVL = R2x_ ACTUAL pIGITS + 0304. 
50 22 EC A? Ci 00078 6$ ADDL 6(FCB), R2, RO : 0313) 
5 FO A? ce 007D SUBL =}6cr ce) rStan : | 
O¢ 0081 BLE : 0314 ' 
0 DD 00083 PUSHL Te TRA : 0316 | 
1 Dd 00085 PUSHL #1 ; 
rE 006 8F 9A 00087 MOVIBL  #PASSK LINTOOLON, (SP) : | 
£ 3 FB 0008B CALLS #3, PASS$SIGNAL ; | 
04 0008E RET ; 
04 DD O008F 7$ PUSHL #4 + 0323 
18 BB 00091 PUSHR #*M<R3,R4> : 
18 AE 9F 00093 PUSHAB DESCR ; 
OC AC DD 00096 PUSHL VALUE : | 
000000006 00 05 FB 00099 CALLS #5, OTSS$CVT_L_TB ; 
50 OC AE 3C 000A0 MOVZWL DE + 0326 
EC 50 CO COOA4 ADDL2 -30(F CB) ; 
000000006 00 16 000A8 JSB BASSSEND _WRITE + 0333 
04 OOOAE RET : 0337 
0000 OOOAF 8$: «WORD Save nothing ; 0215 
50 08 ac 00 00081 MOVL (AP), RO ; 
50 04 AO DO 000B5 MOVL  4(RO ; 
EC AO 9F 00089 PUSHAB ERROR ADDR : 
FO AO 9F OOOBC PUSHAB UNWIND ACT 3 | 
F4 AO OF OOOBF PUSHAB PFV_ADDR ; 
03 DD 000C2 PUSHL #3 : | 
5E DD 000C4 PUSHL SP ; 
7E 04 AC 7D 000C6 MOVQ. 4 (AP), =(SP) ; 
000000006 00 03 FB OOOCA CALLS #3, PASS$$IO_HANDLER : | 
04 00001 RET : | 


0338 1 | 
0339 1 '<BLF/PAGE> 
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1-002 PASSWRITEV_BIN = Urite value in base 2 to strin 1-8ep-1984 2:01 PASRILS RC JPASWRIBiN.B52;1 (4) 
: 280 40 1 XSBTTL 'PASSWRITEV_BIN = Write value in base 2 to string’ 
3 st 41 1 GLOBAL ROUTINE PASSWRITEV BIN ( 
F ¢ tg 1 MAX LENGTH: WOR ! Maximum Length seria 
: 8 4 1 STRING “LINE : REF "VECTOR C, WORD], ! String to write 
; ge 8 44 1 ' Number of bits in’ VALUE | 
; 5 45 1 VALUE? REF VECTOR C, BYTE), ' Value to write 
; Hy] 0 ‘8 1 TOTAL WIDTH: SIGNED, ' Total field width 
; 28 8 47 1} ERROR, ! Error unwind address — 
; 288 48 1 MIN, Digits: SIGNED i Minimum number of digits | 
: 289 0349 1 dy: | 
; 3 5 39 i 144 
Z : 0354 ! FUNCTIONAL DESCRIPTION: | 
: Be O32 ’ This procedure writes a value in base 2 to the specified string. | 
: 336 0356 i CALLING SEQUENCE: 
: 298 0358 1 | CALL PASSWRITEV_BIN (MAX <LENGTH.rw.v_ STRING LINE.wvt.r, 
; 299 0359 1 | -fl.v, VALUE.rz.v, WIDTH. rl.v 
; 00 9360 : C, CERROR.j.rJ tS MIN VOIGITS: rl. vj) 
; 9 036¢ | FORMAL PARAMETERS: 
: 304 0364 1 | MAX_LENGTH - The maximum Length of STRING_LINE. 
: i] Bee8 ; STRING_LINE - A varying string to which the output will be appended. 
: 308 0368 1 | NBITS - Size of VALUE in bits. | 
: 319 Bene : VALUE - The value to write. 
; 312 0372 1 TOTAL_WIDTH - The width of the field to write. | 
: 314 0374 1! ERROR - Optional. If specified, the address to unwind to | 
: 32 o373 | in case of an error. | 
; 317 0377 1! MIN_DIGITS - Minimum number of digits to write. Defaults to : 
; 318 0378 1! the minimum necessary to represent every bit of ; 
: 319 os79 1 i the value. | ; 
; 321 Q381 1 { IMPLICIT INPUTS: ; 
; 28 O88 1 i NONE | ; 
3 4 384 1! 3 
° $2 Oe ! : IMPLICIT OUTPUTS: | 
; 329 0387 1 | NONE | 
; 23 0389 i ROUTINE VALUE: | 
: 31 O38 1 NONE | 
: 35 38 i SIDE EFFECTS: | 
; 335 95 1: NONE | 
3 3536 0396 1! 
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in base 2 1 
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BIN = urite value in base 2 to strin 


IGNALLED ERRORS: 
See PASSWRITE_BIN 


BEGIN 
: SPASSPFV rot VARIAB é. 
ARG LIST: vecto 7, LONG 


UNWIND ACT: VOLATILE. 
ERROR_ADDR: VOLATILE; 


BUILTIN 
ACTUALCOUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND 


‘4 

i _Get ERROR parameter, if present. 

IF ACTUALCOUNT () GEQU 6 
ERROR_ADDR = .ERROR; 

PFV_ADDR = PFV CPFVSR_PFV); 


'¢ 


t Set up ARG_LIST. 


ARG_LIST [0] = 4; 
ARG_LIST [1] = PFV CPFVSR_PFVI; i 
ARG_LIST ¢] =, i 
ARG_LIST = VALUE £0); i 
ARG-LIST (4) = (TOTAL L wibtH: i 
IF ACTUALCOUNT () G 
THEN 
BEGIN 
ARG_LIST 93 = 6; ' 
ARG_LIST = 0; ’ 
ARG_LIST (6) = .MIN_DIGITS; i 
END; 
'¢ 
' Call PASS$$DO_WRITEV to do the work, 
PASSWRITE_BIN to call. 


PAS$$DO_WRITEV (PFV CPFV$R_PFV], .MAX 
PASSWRITE_BIN); 


RETURN; 


_ACT, ERROR_ADDR); 


oo 


Be 93:53:67 | EBASRTLsSRESPASURIBIN 


! Pascal File Variable 
' Argument List 

' Enable argument 

' Enable argument 

! Enable argument 


Count of arguments 


' Enable error handler 


Set unwind address 
Set PFV address 


Four arguments 
PFV address 
Number of bits 
Value to write 
Field width 


Add two more arguments 
Error address 
Minimum digits 


giving it the address of 


LENGTH, STRING_LINE (OJ, ARG_LIST, 


PASSWRITE_BIN 
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: Routine Size: 
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Routine Base: 
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1 !<BLF/PAGE> 


2 16-Sep 
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_PASSCODE + 00D2 


4 18:53:61 EPASRtLoSReSPASuAIBIN«B882;1 


! End of routine PASS$WRITEV_BIN 


PASSS$DO_WRITEV 
| ae! Val BIN, Save R2,R3,R4,R5,R6 


EahGRS ADDR 
YNWIND A ACT 


tab) "6 
1$ 


ERROR, ERROR_ADDR 
PFV, PFV_ADDR 


NBITS, ARG LIST+8 
"BT AL ‘wipTR, PERG. LIST+16 
(AP), 


#6, ARG_LIST 
ARG_ cists +20 

MIN~ DIGITS ARG_LIST+24 
PASSWRITE_BIN, R5 

ARG G_LIST, 


& 
STRING LINE, af? 
MAX_LENGTH 
PASS$DO OWRITEY 


pexe nothing 


CCAP) 
#3, PASS$i0- HANDLER 
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se 2 1-56 -1984 725 AX-11 Bliss-32 V4.0-74 P 
Write value in base 2 to strin 14- Sep-1984 93: 43 63 PASRTL.SRCJPASWRIBIN 882:1 oe 


! End of module PASSWRITE_BIN 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 338 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 


Library Statistics 


Sa eee ga) ey eee SyYRRO(S sosseene Pages Processing 

; File Total Loaded Percent Mapped Time | 

:  _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 | 

; 7$255$DUA28: CPASRTL.OBJJPASLIB.L32; 1 427 97 22 33 00:00.4 

COMMAND QUALIFIERS | 

; FL ESS PCORREONT FELD. ERE TEA, -OPT TREES AESTAAES AL SDA. LED CPASURISTASURIHSR SS SPAS ISIE MSRC$:PASWRIBIN/UPDATE=(ENH$: PASWRIBIN 

‘ 
Size: 338 code + 0 data bytes 
Run Time: 00:08.9 


Elapsed Time: 00:29.3 | 
Lines/CPU Min: 3094 
,enonee/ mie: 14825 
eaety Used: 101 pages 
Compilation Complete 
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